ClrText ClrGraph [[0,0,0] Mat A Deg " " " " " " " " " BASKET" ClrText 0 A~Z "NOMBRE DE" "JOUEUR(S)" ? Z 85 O Lbl 0 Z=G 0 G Isz G 1 Xmin 123 Xmax 0 Xscl 0 Ymin 62 Ymax 0 Yscl Plot 0,22 Plot 0,40 Line Plot 0,31 Plot 89,30 Line Plot 95,0 Line Plot 75,25 Plot 76,21 Line Plot 80,21 Plot 82,25 Line Plot 87,25 Line Plot 90,0 Line Int 73Ran#+2 S Int 60Ran#+2 T Plot S-1,T+1 Plot S+1,T-1 Line Plot S+1,T+1 Plot S-1,T-1 Line "JOUEUR" G Lbl C "ANGLE" ? A "PUISSANCE" ? U U 10 U Ucos A V Usin A W Lbl 1 W-0.1 W S+V S T+W T Plot S,T T<26 T>23 S>75 S<81 Goto 3 S>84 S<87 T>24 T<40 -V V T<1 -W W T<26 T>23 S<87 S>81 -W W S>95 Goto 2 S<1 Goto 2 Goto 1 Lbl 2 "OUT" Goto 5 Lbl 3 W<0 Goto 4 "HUM..." Goto 5 Lbl 4 "SWITCH" Goto 8 Lbl 7 L Mat A[1,1] Isz L "SUR" L Y Mat A[1,1] "POURCENTAGE" (J L)x100 Q Q L=10 Goto 9 Goto 0 Lbl 8 G=1 J+1 J G=2 K+1 K G=3 L+1 L Lbl 5 "SCORE" G=1 J G=2 K G=3 L Goto 7 Lbl 9 "SCORE FINAL" Q
|